home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #3 / Commodore_Disk_User_Vol.4_3_1991_-.d64 / custom basic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  1.6 KB  |  48 lines
  1. 10 rem custom-designed basic! (v.5)       -- elaine foster
  2. 12 poke53280,14:poke646,14:poke53281,6
  3. 15 print"[147] custom-designed basic
  4. 20 [153]" transfers basic rom to ram underneath,
  5. 25 print" and changes that ram to suit! run50
  6. 30 [153]" to transfer the old, slow way. run100
  7. 35 print" for turbotransfer. see rems for         explanations.":end
  8. 40 rem --------> basic rom to ram: slow (37 sec)
  9. 50 a=40960:b=49151:fori=atob:pokei,peek(i):next:poke1,peek(1)and254
  10. 60 goto230
  11. 70 rem
  12. 90 rem -- or --> basic rom to ram: fast (1 sec)
  13. 100 poke88,0:poke89,192:rem lb/hb for destination ea+1 = 49152
  14. 110 poke90,0:poke91,192:rem lb/hb for source ea+1 = 49152
  15. 120 poke95,0:poke96,160:rem lb/hb for source ba = 40960
  16. 130 sys41919:poke1,54:rem basic 'move', inactivate basic rom
  17. 140 rem -- must poke1,54 in prg before using ram under rom
  18. 150 tem=48578:rem useful line tracer: 'system'
  19. 160 rem
  20. 200 rem -- applications.
  21. 210 rem
  22. 220 rem (1) remove punctuation-sensitivity of 'input':
  23. 230 poke44140,0:poke44144,0:rem ($ac6c,$ac70)
  24. 250 rem
  25. 300 rem (2) change 'data' separators from ',' to '+'
  26. 310 poke44183,43:rem ($ac97)
  27. 320 rem
  28. 400 rem (3) personalise 'ready.' prompt
  29. 410 n=41848:fori=0to5:reada:poken+i,a:next
  30. 420 data69+76+65+73+78+69:rem "elaine"
  31. 430 rem
  32. 500 rem (4) change 'input' prompt to "!"
  33. 510 x=33:poke43846,x:rem ($ab46)
  34. 520 rem
  35. 600 rem (5) fix null asc
  36. 610 poke46991,5:rem (b78e beq $b795)
  37. 650 rem
  38. 700 input"[147] enter a string containing punctuation ";a$
  39. 710 system:print"="a$:q$=chr$(34):print"asc("q$q$")=";asc("")
  40. 720 rem
  41. 800 rem (6) internal use of tem (see line 150) before changing syntax error msg:
  42. 810 hello computer!
  43. 820 rem
  44. 900 rem (7) change "syntax" error to " word". must run910 separately:
  45. 910 n=41525:poken+0,32:poken+1,87:poken+2,79:poken+3,82:poken+4,196:poke1,54
  46. 930 rem -- again use tem with new " word" error message:
  47. 940 hello computer!
  48.